<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>7</cardCount>
<cardID>4434</cardID>
<listID>6873</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on controlKey whichif which is 9 thenput Palette("Toggle") into tempend ifpass controlKeyend controlKeyon doMenu whichif which is "S" thenput Palette("Show") into tempelseif which is "A" thengo to next card in this bkgndelseif which is "B" thengo to prev card in this bkgndelseif which is "C" thenif the id of this card is "card id 3058" thenvisual effect iris closego to card id 4434exit doMenuend ifvisual effect dissolve very slowlygo to card id 3058show menuBarelseif which is "D" thenrepeat with i = 1 to (the number of cds in this bkgnd)go to next card in this bkgndwait for 15 ticksend repeatelseif which is "E" thenif visible of bkgnd btn "Oscar" is false thenset lockScreen to truego to card id 3058show bkgnd btn "Oscar"show bkgnd field "About"elseset lockScreen to truehide bkgnd btn "Oscar"hide bkgnd field "About"end ifelseif which is "F" thengo homeelseif which is "G" thenask "Dial what number?" with "1-203-555-1212"Dial itelseif which is "H" thengo to card "Obnoxious"elseif which is "I" thenanswer "Do a complete ShutDown?" with "No way!" or "OK"if it is "OK" thengo to card id 4434ShutMeDownend ifelseif which is "J" thenanswer "Erase all magnetic media for a city block?"¬with "Cancel" or "OK"if it is "OK" thenhide menuBarset the location of card window to 500,500wait for 4 secondsanswer "I know you already looked at the script." with "I'm No Fool!"set the location of card window to 0,0show menuBarelseanswer "Coward." with "Yo!"end ifelseif which is "K" thenset lockScreen to truego to card id 3058show bkgnd field "Bucks"elseif which is "L" thenvisual effect dissolvego to card id 3058set lockScreen to truego to card "States"playIndelseif which is "M" thenanswer "Wipe out civilization as we know it?" with "Cancel" or "OK"if it is "OK" thenNukemNukemanswer "Civilization destroyed." with "OK"end ifelseif which is "N" thenpush cardgo to card id 3058show bkgnd field "Smile"wait for 90 tickshide bkgnd field "Smile"Nukempop cardelseif which is "O" thenvisual effect iris openset icon of bkgnd btn "Boing" to 3849show bkgnd btn "Boing"go to card id 3058elseif which is "P" thenMoveCard upelseif which is "Q" thenMoveCard downelseif which is "R" thengo to card "Space"elsepass doMenuend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend ifend doMenuon idleglobal pickedOneput Palette ("Update") into tempif pickedOne is not empty then doMenu pickedOneput empty into pickedOnepass idleend idleon MoveCard whichput item 1 of the location of card window into myHorizput item 2 of the location of card window into myVertif which is "up" thenset the location of card window to myHoriz,myVert-100elseset the location of card window to myHoriz,myVert+100end ifif the location of card window is not "0,0" thenanswer "Whoa!" with "I'm Afraid" or "No Problem"if it is "I'm Afraid" then set the location of card window to 0,0end ifend MoveCardon playIndplay "Harpsichord" tempo "220" "d4s ee. bs d5h de. es de. b4s"play "Harpsichord" tempo "220" "a4q eh f#e. gs bq. f#e bq. ae gh ge."play "Harpsichord" tempo "220" "g4s f#e. fs ee. gs c5h e4q de. gs"play "Harpsichord" tempo "220" "b4h be. b#s c#5e. b4s f#h eq"play "Harpsichord" tempo "220" "a4h ae. ds ee. bs d5h de. es de."play "Harpsichord" tempo "220" "b4s aq eh f#4e. gs be. f#e bq"play "Harpsichord" tempo "220" "a4q gh ge 0e g4e. as be. a#s be."play "Harpsichord" tempo "220" "g4s ae. bs ae. f#s gq eh f#e. es"play "Harpsichord" tempo "220" "d4q ge. bs d5e. a4s c5e. b4s gw"show bkgnd fie
 (January 1993).iso/Files/Hyper/P/Palet.cpt/Palette XFCN/PATs.png){kind=link}